home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / hyper.dir / 00052.ls < prev    next >
Encoding:
Text File  |  1995-12-12  |  432 b   |  19 lines
  1. on mouseDown
  2.   set TheSprite to the clickOn
  3.   puppetSound("skate")
  4.   repeat with x = 1 to 2
  5.     set the castNum of sprite TheSprite to the number of cast "exit0"
  6.     updateStage()
  7.     delayFor(10)
  8.     set the castNum of sprite TheSprite to the number of cast "exit1"
  9.     updateStage()
  10.     delayFor(10)
  11.   end repeat
  12.   repeat while the soundBusy of 1
  13.     updateStage()
  14.   end repeat
  15.   FadeToBlackFrame()
  16.   sound stop 2
  17.   play done
  18. end
  19.